home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / utils / fkey / fkey.hex < prev    next >
Encoding:
Text File  |  1980-01-04  |  3.3 KB  |  71 lines
  1.   file$="fkey" : 'v2.07
  2.   OPEN file$ FOR OUTPUT AS #1
  3.   lin=0 : a$=""
  4. Loop:
  5.   lin=lin+1
  6.   READ x$ : IF x$="**" THEN Endeth
  7.   x$=UCASE$(x$)
  8.   cs$=RIGHT$(x$,2) : x$=LEFT$(x$,LEN(x$)-2)
  9.   sum=0
  10.   FOR i=1 TO LEN(x$)
  11.     sum=sum+(ASC(MID$(x$,i,1)) XOR i)
  12.   NEXT i
  13.   IF (sum AND 255)<>VAL("&H"+cs$) THEN
  14.     PRINT "Checksum error in line";lin
  15.     GOTO Endeth
  16.   END IF
  17.   x$=a$+x$ : a$=""
  18.   FOR i=1 TO LEN(x$) STEP 2
  19.     IF MID$(x$,i,1) = "G" THEN
  20.       IF MID$(x$,i+2)="" THEN a$=MID$(x$,i) : GOTO Loop
  21.       y$=STRING$(ASC(MID$(x$,i+1,1))-63,CHR$(VAL("&H"+MID$(x$,i+2,2))))
  22.       i=i+2
  23.     ELSE
  24.       y$=CHR$(VAL("&H"+MID$(x$,i,2)))
  25.     END IF
  26.     PRINT #1,y$;
  27.   NEXT i
  28.   GOTO Loop
  29.  
  30. Endeth:
  31.   CLOSE #1
  32.   PRINT "Operation complete"
  33.   END
  34.  
  35. 1     DATA ga0003f3gf0002gf0001ga00010agb0011ga0003e9ga00010a4e54ffe870ff2c1
  36. 2     DATA 940fff82940fff442acfffc42acffe841f9gc002948fff041f9gb00202948fff7
  37. 3     DATA ec2c78000443fa03e970004eaefdd82940fffc6700018041fa03307000226cf63
  38. 4     DATA ff072002c7800044eaefe442940fff866000164246cffec157c00040008422aa9
  39. 5     DATA 000e42aa000a70ff2c7800044eaefeb62940fff46b0001401540000f93c94ea7f
  40. 6     DATA efeda2540001041ea00142088589042a8000421480008226cfff0234a000e411a
  41. 7     DATA fa030048e7f0c224082c6cfffc4eaeffc4220067ga000a2c6cfffc61ga000a47d
  42. 8     DATA cdf430f60ga001420424a1866fc5388260896824eaeffd04e7543fa029d2c78cc
  43. 9     DATA 00044eaefe7a2940ffe866ga00806100010465ga00c46100016a67ga00bc43e61
  44. 10    DATA a002641fa01bc303c00ab12d851c8fffc41ea00ea2548002241ea002643e80075
  45. 11    DATA 1621490012216cffe8000e226cfff0337c0009001c234800284eaefe384a8065f
  46. 12    DATA 6ga00786100015e41fa023a48e7f0c224082c6cfffc4eaeffc4220067ga000a9d
  47. 13    DATA 2c6cfffc6100ff644cdf430f604c226cfff0337c000a001c204041e80026234e0
  48. 14    DATA 800282c7800044eaefe384a80662c41fa020548e7f0c224082c6cfffc4eaeff59
  49. 15    DATA c4220067ga000a2c6cfffc6100ff1e4cdf430f61ga00d261ga0088202cfff8678
  50. 16    DATA 60c226cfff02c7800044eaefe3e202cfff46b082c7800044eaefeb0226cfffccd
  51. 17    DATA 200967ga000a2c7800044eaefe6242acfffc70004e5c4e75203cga000626223f0
  52. 18    DATA c000100012c7800044eaeff3a2940ffe8672a2440157cgb0009157c0004000826
  53. 19    DATA 43ea00da2549000a41fa015312d866fc224a4eaefe9e023c00fe4e75003c00083
  54. 20    DATA 14e7543fa01392c7800044eaefe7a2240240067104eaefe98203cga00062622e4
  55. 21    DATA 424eaeff2e4e75246cffe8203cga000580254000d6223c000100012c78000448d
  56. 22    DATA eaeff3a254000d24e75246cffe8202a00d267122240202a00d62c7800044eae24
  57. 23    DATA ff2e42aa00d24e7541fa0124226cffe843e900ea701345e9004012d86afc22451
  58. 24    DATA a51c8fff44e75gg00023cgk0048e77f7e2a480c28000100046618302800060403
  59. 25    DATA 400050650e0c40000962087203c268000861084cdf7efe20084e754a4167040d7
  60. 26    DATA 640000aed40207affbe226800d2284941e800ead0c04a106b46741f42a9ga000f
  61. 27    DATA 137c000100044229000570001018334000061028001f3340000842a9000a236be
  62. 28    DATA d000e000e236d001200124a106b0e53426b0a45e90016228a224a60c0204c4e6e
  63. 29    DATA 7591c84e75696e7075742e64657669636500464b6579506f727400464b6579748
  64. 30    DATA 320696e737461ga6c65640a00464b6579732072656d6f7665640a00464b4559fb
  65. 31    DATA 20312e302062792053757065727669736f7220536f66747761726520313938344
  66. 32    DATA 90a0036121133281744ff12362233281744ff22171344ff2817211444ff332250
  67. 33    DATA 40ff13163640ff1232123316141240ff1736231844ff203420172844ff3513105
  68. 34    DATA 2202740gjff646f732e6c696272617279ge0003ecgb0002gb0001gb0022gb00ea
  69. 35    DATA 18ge0003f2ga0003ebgb0011ga0003f286
  70.       DATA **
  71.